home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 039a / pdm_106.zip / WP51.PRG < prev   
Text File  |  1991-06-08  |  19KB  |  650 lines
  1.  
  2. *≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡*
  3. * Program Name: WP51.PRG
  4. * Description.: Driver for PDM Menu System program
  5. * Language....: Clipper S'87
  6. * LIB required: CC.LIB v1.04, EXTEND.LIB
  7. * Gen Time....: 06/08/91 17:59:49
  8. * Generated by: PDM Sys - the ClipCode Pull Down Menu System  v1.06
  9. *≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡*
  10. *** Set CLIPPER Environment ***
  11. SET CURSOR OFF
  12. SET DELETED ON                          && Filter out Deleted Records
  13. SET EXACT ON
  14. SET SCOREBOARD OFF
  15. SET SOFTSEEK OFF
  16.  
  17. PDMSETUP()
  18.  
  19. *** Set Color for Initial Screen ***
  20. SET COLOR TO ( PDM_CONFG[7] )
  21. @1,0 SAY REPLICATE( CHR( PDM_CONFG[8] ), 1840 ) && char for init screen
  22.  
  23. SET COLOR TO ( PDM_COLOR[1] )           && hcolor when not selected
  24. @ PDM_CONFG[2],00
  25.  
  26. SET COLOR TO ( PDM_CONFG[6] )           && color for init bottom panel
  27. @ PDM_CONFG[4],00
  28. @ PDM_CONFG[4],00 SAY PDM_CONFG[9]      && text for init bottom panel
  29.  
  30. MENUPD( 0, 0 )                          && just display h menu
  31.  
  32. PRIVATE key, hOpt, vOpt, pdSEL, sv_panel
  33. pdSel= 1
  34. DO WHILE .T.
  35.  
  36.   *SETCANCEL(.F.)                        && Disable alt-C interrupt
  37.   INKEY(0)
  38.   key= LASTKEY()                        && key= INKEY(0) misses alt-D
  39.   *SETCANCEL(.T.)                        && Enable alt-C interrupt
  40.  
  41.   DO CASE
  42.   *?*CASE key = 28                         && F1=Help
  43.  
  44.   *?*CASE key = -2                         && F3=Exit
  45.   ***  EXIT2DOS()
  46.  
  47.   CASE key = 27                         && Exit
  48.     PRIVATE Opts[2]
  49.     Opts[1]= "Yes"
  50.     Opts[2]= "No"
  51.      * Syntx: message text,       [ title,prmpts,colors,mRow,mColm,TmO ]
  52.     IF BOXMSG( "Exit Program to DOS?",.F., Opts ) = 1
  53.       EXIT
  54.     ELSE
  55.       LOOP
  56.     ENDIF
  57.   CASE key = -9                         && F10=Menu
  58.     hOpt=  1
  59.     vOpt=  0
  60.   *?*CASE key = 3                          && PgDn=Next
  61.   ***  SKIP 1
  62.   ***  IF EOF()
  63.   ***    BOXMSG( "At End-of-File" )
  64.   ***    SKIP -1
  65.   ***  ENDIF
  66.   *?*CASE key = 18                         && PgUp=Prev
  67.   ***  SKIP -1
  68.   ***  IF BOF()
  69.   ***    BOXMSG( "At Beginning-of-File" )
  70.   ***  ENDIF
  71.  
  72.   CASE ASCAN( PDM_HOTKY, key ) > 0      && If found, returns the ss
  73.     hOpt=  ASCAN( PDM_HOTKY, key )
  74.     vOpt=  1
  75.   OTHERWISE
  76.     LOOP
  77.   ENDCASE
  78.  
  79.   IF hOpt < 1
  80.     LOOP
  81.   ENDIF
  82.  
  83.   sv_panel= BOXSAVE( PDM_CONFG[4],00, PDM_CONFG[4],79 )
  84.   pdSel   = 1
  85.   DO WHILE pdSel <> 0
  86.  
  87.     pdSel= MENUPD( @hOpt, @vOpt )
  88.     IF pdSel > 0
  89.       DO CASE
  90.       OTHERWISE
  91.         * Syntx: message text/array, [ title,prmpts,colors,mRow,mColm,TmO ]
  92.         BOXMSG( "PDM Option Selected: "+LTRIM( STR(pdSel) ) )
  93.       ENDCASE
  94.     ENDIF
  95.   ENDDO WHILE pdSel <> 0
  96.   BOXREST( sv_panel )
  97.  
  98. ENDDO
  99. SET COLOR TO
  100. SET CURSOR ON
  101. CLEAR
  102. QUIT                                                    && End of: MAIN LINE
  103. *≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡*
  104.  
  105. *------------------------------------------------------------------------------*
  106. * Function....: PDMSETUP()
  107. * Purpose.....: UDF to Create PDMSETUP()
  108. * Parameters..: none
  109. * Generated by: PDM - the ClipCode Pull Down Menu System
  110. * Assumption..: the presence of these PUBLIC arrays:
  111. *             : <arrC>: PDM_HPROM = horizontal menu prompt text
  112. *             : <arrN>: PDM_HCOLM = horizontal starting columns for prompts
  113. *             : <arrC>: PDM_HTRIG = horizontal trigger letters
  114. *             : <arrN>: PDM_HTPOS = horizontal trigger letter positions
  115. *             : <arrN>: PDM_VSS1  = starting array subscript
  116. *             : <arrN>: PDM_VSS2  = ending array subscript
  117. *             : <arrC>: PDM_VPROM = vertical menu prompt text
  118. *             : <arrC>: PDM_VTRIG = vertical trigger letters
  119. *             : <arrN>: PDM_VCOLM = vertical starting columns for v prompts
  120. *             : <arrN>: PDM_VTPOS = vertical trigger letter positions
  121. *             : <arrL>: PDM_VACTV = vertical active status array
  122. *             : <arrC>: PDM_COLOR = PDM color strings for SET COLOR TO
  123. *                                     [ 1] hcolor when not selected
  124. *                                     [ 2] hcolor for unselected trigger
  125. *                                     [ 3] hcolor for selected option
  126. *                                     [ 4] hcolor for selected trigger
  127. *                                     [ 5] vcolor for box
  128. *                                     [ 6] vcolor when not selected
  129. *                                     [ 7] vcolor for unselected trigger
  130. *                                     [ 8] vcolor for selected option
  131. *                                     [ 9] vcolor for selected trigger
  132. *                                     [10] vcolor for inactive option
  133. *                                     [11] vcolor for message row
  134. *             : <arrC>: PDM_VMSSG = vertical message help text
  135. *             : <arrX>: PDM_CONFG = PDM configuration
  136. *                                     [1] = expN: box type: 0,1,2
  137. *                                     [2] = expN: row for horiz menu
  138. *                                     [3] = expN: row for box top
  139. *                                     [4] = expN: message row
  140. *                                     [5] = expN: time out
  141. *                                     [6] = expC: color for init bottom panel
  142. *                                     [7] = expC: color for init screen
  143. *                                     [8] = expN: char for init screen
  144. *                                     [9] = expC: text for init bottom panel
  145. * Calls.......: PDM_INIT()
  146. * CC.LIB Calls: ALONGEST(), ATNEXT()
  147. * Language....: Clipper S'87
  148. * Returns.....: <expL>: .T.
  149. *------------------------------------------------------------------------------*
  150. FUNCTION PDMSETUP
  151.  
  152. PRIVATE dimh, dimv, ss
  153.  
  154. *** MENUPD Horizontal ***
  155. dimh= 9
  156. PUBLIC PDM_HPROM[dimh]                  && horizontal menu prompt text
  157. PDM_HPROM[1]= "File"
  158. PDM_HPROM[2]= "Edit"
  159. PDM_HPROM[3]= "Search"
  160. PDM_HPROM[4]= "Layout"
  161. PDM_HPROM[5]= "Mark"
  162. PDM_HPROM[6]= "Tools"
  163. PDM_HPROM[7]= "Font"
  164. PDM_HPROM[8]= "Graphics"
  165. PDM_HPROM[9]= "Help"
  166.  
  167. PUBLIC PDM_HCOLM[dimh]                  && horizontal starting columns for prompts
  168. PDM_HCOLM[1]= 0
  169. PDM_HCOLM[2]= 5
  170. PDM_HCOLM[3]= 10
  171. PDM_HCOLM[4]= 17
  172. PDM_HCOLM[5]= 24
  173. PDM_HCOLM[6]= 29
  174. PDM_HCOLM[7]= 35
  175. PDM_HCOLM[8]= 40
  176. PDM_HCOLM[9]= 49
  177.  
  178. PUBLIC PDM_HOTKY[dimh]                  && horiz Hot/alt keys INKEY()
  179. PDM_HOTKY[1]= 289
  180. PDM_HOTKY[2]= 274
  181. PDM_HOTKY[3]= 287
  182. PDM_HOTKY[4]= 294
  183. PDM_HOTKY[5]= 306
  184. PDM_HOTKY[6]= 276
  185. PDM_HOTKY[7]= 280
  186. PDM_HOTKY[8]= 290
  187. PDM_HOTKY[9]= 291
  188.  
  189. PUBLIC PDM_HTRIG[dimh]                  && horizontal trigger letters
  190. PDM_HTRIG[1]= "F"
  191. PDM_HTRIG[2]= "E"
  192. PDM_HTRIG[3]= "S"
  193. PDM_HTRIG[4]= "L"
  194. PDM_HTRIG[5]= "M"
  195. PDM_HTRIG[6]= "T"
  196. PDM_HTRIG[7]= "o"
  197. PDM_HTRIG[8]= "G"
  198. PDM_HTRIG[9]= "H"
  199.  
  200. PUBLIC PDM_HTPOS[dimh]                  && horizontal trigger letter  positions
  201. PDM_HTPOS[1]= 1
  202. PDM_HTPOS[2]= 1
  203. PDM_HTPOS[3]= 1
  204. PDM_HTPOS[4]= 1
  205. PDM_HTPOS[5]= 1
  206. PDM_HTPOS[6]= 1
  207. PDM_HTPOS[7]= 2
  208. PDM_HTPOS[8]= 1
  209. PDM_HTPOS[9]= 1
  210.  
  211. *** PDMENUV Vertical ***
  212. PUBLIC PDM_VSS1[dimh]                   && starting array subscript
  213. PDM_VSS1[1]= 1
  214. PDM_VSS1[2]= 16
  215. PDM_VSS1[3]= 34
  216. PDM_VSS1[4]= 44
  217. PDM_VSS1[5]= 60
  218. PDM_VSS1[6]= 74
  219. PDM_VSS1[7]= 93
  220. PDM_VSS1[8]= 108
  221. PDM_VSS1[9]= 115
  222.  
  223. dimv= 117
  224. PUBLIC PDM_VPROM[dimv]                  && vertical menu prompt text
  225. PDM_VPROM[  1]= " Retrieve   "
  226. PDM_VPROM[  2]= " Save       "
  227. PDM_VPROM[  3]= " Text In   "
  228. PDM_VPROM[  4]= " Text Out  "
  229. PDM_VPROM[  5]= " Password  "
  230. PDM_VPROM[  6]= "-"
  231. PDM_VPROM[  7]= " List Files "
  232. PDM_VPROM[  8]= " Summary    "
  233. PDM_VPROM[  9]= "-"
  234. PDM_VPROM[ 10]= " Print      "
  235. PDM_VPROM[ 11]= "-"
  236. PDM_VPROM[ 12]= " Setup     "
  237. PDM_VPROM[ 13]= "-"
  238. PDM_VPROM[ 14]= " Go to DOS  "
  239. PDM_VPROM[ 15]= " Exit       "
  240. PDM_VPROM[ 16]= " Move (Cut)      "
  241. PDM_VPROM[ 17]= " Copy            "
  242. PDM_VPROM[ 18]= " Paste           "
  243. PDM_VPROM[ 19]= " Append          "
  244. PDM_VPROM[ 20]= "-"
  245. PDM_VPROM[ 21]= " Delete          "
  246. PDM_VPROM[ 22]= " Undelete        "
  247. PDM_VPROM[ 23]= "-"
  248. PDM_VPROM[ 24]= " Block           "
  249. PDM_VPROM[ 25]= " Select         "
  250. PDM_VPROM[ 26]= " Comment        "
  251. PDM_VPROM[ 27]= " Convert Case    "
  252. PDM_VPROM[ 28]= " Protect Block   "
  253. PDM_VPROM[ 29]= "-"
  254. PDM_VPROM[ 30]= " Switch Document "
  255. PDM_VPROM[ 31]= " Window          "
  256. PDM_VPROM[ 32]= "-"
  257. PDM_VPROM[ 33]= " Reveal Codes    "
  258. PDM_VPROM[ 34]= " Forward  "
  259. PDM_VPROM[ 35]= " Backward "
  260. PDM_VPROM[ 36]= " Next     "
  261. PDM_VPROM[ 37]= " Previous "
  262. PDM_VPROM[ 38]= "-"
  263. PDM_VPROM[ 39]= " Replace  "
  264. PDM_VPROM[ 40]= "-"
  265. PDM_VPROM[ 41]= " Extended"
  266. PDM_VPROM[ 42]= "-"
  267. PDM_VPROM[ 43]= " Go to    "
  268. PDM_VPROM[ 44]= " Line     "
  269. PDM_VPROM[ 45]= " Page     "
  270. PDM_VPROM[ 46]= " Document "
  271. PDM_VPROM[ 47]= " Other    "
  272. PDM_VPROM[ 48]= "-"
  273. PDM_VPROM[ 49]= " Columns "
  274. PDM_VPROM[ 50]= " Tables  "
  275. PDM_VPROM[ 51]= " Math    "
  276. PDM_VPROM[ 52]= "-"
  277. PDM_VPROM[ 53]= " Footnote"
  278. PDM_VPROM[ 54]= " Endnote "
  279. PDM_VPROM[ 55]= "-"
  280. PDM_VPROM[ 56]= " Justify "
  281. PDM_VPROM[ 57]= " Align   "
  282. PDM_VPROM[ 58]= "-"
  283. PDM_VPROM[ 59]= " Styles   "
  284. PDM_VPROM[ 60]= " Index                "
  285. PDM_VPROM[ 61]= " Table of Contents    "
  286. PDM_VPROM[ 62]= " List                 "
  287. PDM_VPROM[ 63]= " Cross-Reference     "
  288. PDM_VPROM[ 64]= " Table of Authorities"
  289. PDM_VPROM[ 65]= "-"
  290. PDM_VPROM[ 66]= " Define              "
  291. PDM_VPROM[ 67]= "-"
  292. PDM_VPROM[ 68]= " Generate             "
  293. PDM_VPROM[ 69]= "-"
  294. PDM_VPROM[ 70]= " Master Documents    "
  295. PDM_VPROM[ 71]= " Subdocument          "
  296. PDM_VPROM[ 72]= "-"
  297. PDM_VPROM[ 73]= " Document Compare    "
  298. PDM_VPROM[ 74]= " Spell            "
  299. PDM_VPROM[ 75]= " Thesaurus        "
  300. PDM_VPROM[ 76]= "-"
  301. PDM_VPROM[ 77]= " Macro           "
  302. PDM_VPROM[ 78]= "-"
  303. PDM_VPROM[ 79]= " Date Text        "
  304. PDM_VPROM[ 80]= " Date Code        "
  305. PDM_VPROM[ 81]= " Date Format      "
  306. PDM_VPROM[ 82]= "-"
  307. PDM_VPROM[ 83]= " Outline         "
  308. PDM_VPROM[ 84]= " Paragraph Number "
  309. PDM_VPROM[ 85]= " Define           "
  310. PDM_VPROM[ 86]= "-"
  311. PDM_VPROM[ 87]= " Merge Codes     "
  312. PDM_VPROM[ 88]= " Merge            "
  313. PDM_VPROM[ 89]= "-"
  314. PDM_VPROM[ 90]= " Sort             "
  315. PDM_VPROM[ 91]= "-"
  316. PDM_VPROM[ 92]= " Line Draw        "
  317. PDM_VPROM[ 93]= " Base Font   "
  318. PDM_VPROM[ 94]= "-"
  319. PDM_VPROM[ 95]= " Normal      "
  320. PDM_VPROM[ 96]= " Appearance "
  321. PDM_VPROM[ 97]= " Superscript "
  322. PDM_VPROM[ 98]= " Subscript   "
  323. PDM_VPROM[ 99]= " Fine        "
  324. PDM_VPROM[100]= " Small       "
  325. PDM_VPROM[101]= " Large       "
  326. PDM_VPROM[102]= " Very Large  "
  327. PDM_VPROM[103]= " Extra Large "
  328. PDM_VPROM[104]= "-"
  329. PDM_VPROM[105]= " Print Color "
  330. PDM_VPROM[106]= "-"
  331. PDM_VPROM[107]= " Characters  "
  332. PDM_VPROM[108]= " Figure   "
  333. PDM_VPROM[109]= " Table Box "
  334. PDM_VPROM[110]= " Text Box  "
  335. PDM_VPROM[111]= " User Box  "
  336. PDM_VPROM[112]= " Equation  "
  337. PDM_VPROM[113]= "-"
  338. PDM_VPROM[114]= " Line     "
  339. PDM_VPROM[115]= " Help     "
  340. PDM_VPROM[116]= " Index    "
  341. PDM_VPROM[117]= " Template "
  342.  
  343. PUBLIC PDM_VTRIG[dimv]                  && vertical trigger letters
  344. PDM_VTRIG[  1]= "R"
  345. PDM_VTRIG[  2]= "S"
  346. PDM_VTRIG[  3]= "I"
  347. PDM_VTRIG[  4]= "O"
  348. PDM_VTRIG[  5]= "w"
  349. PDM_VTRIG[  6]= "-"
  350. PDM_VTRIG[  7]= "F"
  351. PDM_VTRIG[  8]= "m"
  352. PDM_VTRIG[  9]= "-"
  353. PDM_VTRIG[ 10]= "P"
  354. PDM_VTRIG[ 11]= "-"
  355. PDM_VTRIG[ 12]= "t"
  356. PDM_VTRIG[ 13]= "-"
  357. PDM_VTRIG[ 14]= "G"
  358. PDM_VTRIG[ 15]= "x"
  359. PDM_VTRIG[ 16]= "M"
  360. PDM_VTRIG[ 17]= "C"
  361. PDM_VTRIG[ 18]= "P"
  362. PDM_VTRIG[ 19]= "A"
  363. PDM_VTRIG[ 20]= "-"
  364. PDM_VTRIG[ 21]= "D"
  365. PDM_VTRIG[ 22]= "U"
  366. PDM_VTRIG[ 23]= "-"
  367. PDM_VTRIG[ 24]= "B"
  368. PDM_VTRIG[ 25]= "e"
  369. PDM_VTRIG[ 26]= "o"
  370. PDM_VTRIG[ 27]= "v"
  371. PDM_VTRIG[ 28]= "t"
  372. PDM_VTRIG[ 29]= "-"
  373. PDM_VTRIG[ 30]= "S"
  374. PDM_VTRIG[ 31]= "W"
  375. PDM_VTRIG[ 32]= "-"
  376. PDM_VTRIG[ 33]= "R"
  377. PDM_VTRIG[ 34]= "F"
  378. PDM_VTRIG[ 35]= "B"
  379. PDM_VTRIG[ 36]= "N"
  380. PDM_VTRIG[ 37]= "P"
  381. PDM_VTRIG[ 38]= "-"
  382. PDM_VTRIG[ 39]= "R"
  383. PDM_VTRIG[ 40]= "-"
  384. PDM_VTRIG[ 41]= "E"
  385. PDM_VTRIG[ 42]= "-"
  386. PDM_VTRIG[ 43]= "G"
  387. PDM_VTRIG[ 44]= "L"
  388. PDM_VTRIG[ 45]= "P"
  389. PDM_VTRIG[ 46]= "D"
  390. PDM_VTRIG[ 47]= "O"
  391. PDM_VTRIG[ 48]= "-"
  392. PDM_VTRIG[ 49]= "C"
  393. PDM_VTRIG[ 50]= "T"
  394. PDM_VTRIG[ 51]= "M"
  395. PDM_VTRIG[ 52]= "-"
  396. PDM_VTRIG[ 53]= "F"
  397. PDM_VTRIG[ 54]= "E"
  398. PDM_VTRIG[ 55]= "-"
  399. PDM_VTRIG[ 56]= "J"
  400. PDM_VTRIG[ 57]= "A"
  401. PDM_VTRIG[ 58]= "-"
  402. PDM_VTRIG[ 59]= "S"
  403. PDM_VTRIG[ 60]= "I"
  404. PDM_VTRIG[ 61]= "C"
  405. PDM_VTRIG[ 62]= "L"
  406. PDM_VTRIG[ 63]= "R"
  407. PDM_VTRIG[ 64]= "A"
  408. PDM_VTRIG[ 65]= "-"
  409. PDM_VTRIG[ 66]= "D"
  410. PDM_VTRIG[ 67]= "-"
  411. PDM_VTRIG[ 68]= "G"
  412. PDM_VTRIG[ 69]= "-"
  413. PDM_VTRIG[ 70]= "M"
  414. PDM_VTRIG[ 71]= "S"
  415. PDM_VTRIG[ 72]= "-"
  416. PDM_VTRIG[ 73]= "o"
  417. PDM_VTRIG[ 74]= "S"
  418. PDM_VTRIG[ 75]= "h"
  419. PDM_VTRIG[ 76]= "-"
  420. PDM_VTRIG[ 77]= "a"
  421. PDM_VTRIG[ 78]= "-"
  422. PDM_VTRIG[ 79]= "T"
  423. PDM_VTRIG[ 80]= "C"
  424. PDM_VTRIG[ 81]= "F"
  425. PDM_VTRIG[ 82]= "-"
  426. PDM_VTRIG[ 83]= "O"
  427. PDM_VTRIG[ 84]= "P"
  428. PDM_VTRIG[ 85]= "D"
  429. PDM_VTRIG[ 86]= "-"
  430. PDM_VTRIG[ 87]= "r"
  431. PDM_VTRIG[ 88]= "M"
  432. PDM_VTRIG[ 89]= "-"
  433. PDM_VTRIG[ 90]= "S"
  434. PDM_VTRIG[ 91]= "-"
  435. PDM_VTRIG[ 92]= "L"
  436. PDM_VTRIG[ 93]= "o"
  437. PDM_VTRIG[ 94]= "-"
  438. PDM_VTRIG[ 95]= "N"
  439. PDM_VTRIG[ 96]= "A"
  440. PDM_VTRIG[ 97]= "p"
  441. PDM_VTRIG[ 98]= "b"
  442. PDM_VTRIG[ 99]= "F"
  443. PDM_VTRIG[100]= "S"
  444. PDM_VTRIG[101]= "L"
  445. PDM_VTRIG[102]= "V"
  446. PDM_VTRIG[103]= "E"
  447. PDM_VTRIG[104]= "-"
  448. PDM_VTRIG[105]= "C"
  449. PDM_VTRIG[106]= "-"
  450. PDM_VTRIG[107]= "h"
  451. PDM_VTRIG[108]= "F"
  452. PDM_VTRIG[109]= "T"
  453. PDM_VTRIG[110]= "B"
  454. PDM_VTRIG[111]= "U"
  455. PDM_VTRIG[112]= "E"
  456. PDM_VTRIG[113]= "-"
  457. PDM_VTRIG[114]= "L"
  458. PDM_VTRIG[115]= "H"
  459. PDM_VTRIG[116]= "I"
  460. PDM_VTRIG[117]= "T"
  461.  
  462. PUBLIC PDM_VTPOS[dimv]                  && vertical trigger letter positions
  463. PDM_VTPOS[  1]= 2
  464. PDM_VTPOS[  2]= 2
  465. PDM_VTPOS[  3]= 7
  466. PDM_VTPOS[  4]= 7
  467. PDM_VTPOS[  5]= 6
  468. PDM_VTPOS[  6]= 1
  469. PDM_VTPOS[  7]= 7
  470. PDM_VTPOS[  8]= 4
  471. PDM_VTPOS[  9]= 1
  472. PDM_VTPOS[ 10]= 2
  473. PDM_VTPOS[ 11]= 1
  474. PDM_VTPOS[ 12]= 4
  475. PDM_VTPOS[ 13]= 1
  476. PDM_VTPOS[ 14]= 2
  477. PDM_VTPOS[ 15]= 3
  478. PDM_VTPOS[ 16]= 2
  479. PDM_VTPOS[ 17]= 2
  480. PDM_VTPOS[ 18]= 2
  481. PDM_VTPOS[ 19]= 2
  482. PDM_VTPOS[ 20]= 1
  483. PDM_VTPOS[ 21]= 2
  484. PDM_VTPOS[ 22]= 2
  485. PDM_VTPOS[ 23]= 1
  486. PDM_VTPOS[ 24]= 2
  487. PDM_VTPOS[ 25]= 3
  488. PDM_VTPOS[ 26]= 3
  489. PDM_VTPOS[ 27]= 5
  490. PDM_VTPOS[ 28]= 5
  491. PDM_VTPOS[ 29]= 1
  492. PDM_VTPOS[ 30]= 2
  493. PDM_VTPOS[ 31]= 2
  494. PDM_VTPOS[ 32]= 1
  495. PDM_VTPOS[ 33]= 2
  496. PDM_VTPOS[ 34]= 2
  497. PDM_VTPOS[ 35]= 2
  498. PDM_VTPOS[ 36]= 2
  499. PDM_VTPOS[ 37]= 2
  500. PDM_VTPOS[ 38]= 1
  501. PDM_VTPOS[ 39]= 2
  502. PDM_VTPOS[ 40]= 1
  503. PDM_VTPOS[ 41]= 2
  504. PDM_VTPOS[ 42]= 1
  505. PDM_VTPOS[ 43]= 2
  506. PDM_VTPOS[ 44]= 2
  507. PDM_VTPOS[ 45]= 2
  508. PDM_VTPOS[ 46]= 2
  509. PDM_VTPOS[ 47]= 2
  510. PDM_VTPOS[ 48]= 1
  511. PDM_VTPOS[ 49]= 2
  512. PDM_VTPOS[ 50]= 2
  513. PDM_VTPOS[ 51]= 2
  514. PDM_VTPOS[ 52]= 1
  515. PDM_VTPOS[ 53]= 2
  516. PDM_VTPOS[ 54]= 2
  517. PDM_VTPOS[ 55]= 1
  518. PDM_VTPOS[ 56]= 2
  519. PDM_VTPOS[ 57]= 2
  520. PDM_VTPOS[ 58]= 1
  521. PDM_VTPOS[ 59]= 2
  522. PDM_VTPOS[ 60]= 2
  523. PDM_VTPOS[ 61]= 10
  524. PDM_VTPOS[ 62]= 2
  525. PDM_VTPOS[ 63]= 8
  526. PDM_VTPOS[ 64]= 11
  527. PDM_VTPOS[ 65]= 1
  528. PDM_VTPOS[ 66]= 2
  529. PDM_VTPOS[ 67]= 1
  530. PDM_VTPOS[ 68]= 2
  531. PDM_VTPOS[ 69]= 1
  532. PDM_VTPOS[ 70]= 2
  533. PDM_VTPOS[ 71]= 2
  534. PDM_VTPOS[ 72]= 1
  535. PDM_VTPOS[ 73]= 12
  536. PDM_VTPOS[ 74]= 2
  537. PDM_VTPOS[ 75]= 3
  538. PDM_VTPOS[ 76]= 1
  539. PDM_VTPOS[ 77]= 3
  540. PDM_VTPOS[ 78]= 1
  541. PDM_VTPOS[ 79]= 7
  542. PDM_VTPOS[ 80]= 7
  543. PDM_VTPOS[ 81]= 7
  544. PDM_VTPOS[ 82]= 1
  545. PDM_VTPOS[ 83]= 2
  546. PDM_VTPOS[ 84]= 2
  547. PDM_VTPOS[ 85]= 2
  548. PDM_VTPOS[ 86]= 1
  549. PDM_VTPOS[ 87]= 4
  550. PDM_VTPOS[ 88]= 2
  551. PDM_VTPOS[ 89]= 1
  552. PDM_VTPOS[ 90]= 2
  553. PDM_VTPOS[ 91]= 1
  554. PDM_VTPOS[ 92]= 2
  555. PDM_VTPOS[ 93]= 8
  556. PDM_VTPOS[ 94]= 1
  557. PDM_VTPOS[ 95]= 2
  558. PDM_VTPOS[ 96]= 2
  559. PDM_VTPOS[ 97]= 4
  560. PDM_VTPOS[ 98]= 4
  561. PDM_VTPOS[ 99]= 2
  562. PDM_VTPOS[100]= 2
  563. PDM_VTPOS[101]= 2
  564. PDM_VTPOS[102]= 2
  565. PDM_VTPOS[103]= 2
  566. PDM_VTPOS[104]= 1
  567. PDM_VTPOS[105]= 8
  568. PDM_VTPOS[106]= 1
  569. PDM_VTPOS[107]= 3
  570. PDM_VTPOS[108]= 2
  571. PDM_VTPOS[109]= 2
  572. PDM_VTPOS[110]= 7
  573. PDM_VTPOS[111]= 2
  574. PDM_VTPOS[112]= 2
  575. PDM_VTPOS[113]= 1
  576. PDM_VTPOS[114]= 2
  577. PDM_VTPOS[115]= 2
  578. PDM_VTPOS[116]= 2
  579. PDM_VTPOS[117]= 2
  580.  
  581. PUBLIC PDM_VACTV[dimv]                  && vertical active status array
  582. AFILL( PDM_VACTV, .T. )
  583. PDM_VACTV[  6]= .F.
  584. PDM_VACTV[  9]= .F.
  585. PDM_VACTV[ 11]= .F.
  586. PDM_VACTV[ 13]= .F.
  587. PDM_VACTV[ 16]= .F.
  588. PDM_VACTV[ 17]= .F.
  589. PDM_VACTV[ 19]= .F.
  590. PDM_VACTV[ 20]= .F.
  591. PDM_VACTV[ 21]= .F.
  592. PDM_VACTV[ 23]= .F.
  593. PDM_VACTV[ 27]= .F.
  594. PDM_VACTV[ 28]= .F.
  595. PDM_VACTV[ 29]= .F.
  596. PDM_VACTV[ 32]= .F.
  597. PDM_VACTV[ 38]= .F.
  598. PDM_VACTV[ 40]= .F.
  599. PDM_VACTV[ 42]= .F.
  600. PDM_VACTV[ 48]= .F.
  601. PDM_VACTV[ 52]= .F.
  602. PDM_VACTV[ 55]= .F.
  603. PDM_VACTV[ 58]= .F.
  604. PDM_VACTV[ 61]= .F.
  605. PDM_VACTV[ 62]= .F.
  606. PDM_VACTV[ 65]= .F.
  607. PDM_VACTV[ 67]= .F.
  608. PDM_VACTV[ 69]= .F.
  609. PDM_VACTV[ 72]= .F.
  610. PDM_VACTV[ 76]= .F.
  611. PDM_VACTV[ 78]= .F.
  612. PDM_VACTV[ 82]= .F.
  613. PDM_VACTV[ 86]= .F.
  614. PDM_VACTV[ 89]= .F.
  615. PDM_VACTV[ 91]= .F.
  616. PDM_VACTV[ 94]= .F.
  617. PDM_VACTV[104]= .F.
  618. PDM_VACTV[106]= .F.
  619. PDM_VACTV[113]= .F.
  620.  
  621. PUBLIC PDM_COLOR[11]                    && PDM color strings for SET COLOR TO
  622. PDM_COLOR[ 1]= "B/W"                     && [ 1] hcolor when not selected
  623. PDM_COLOR[ 2]= "R/W"                     && [ 2] hcolor for unselected trigger
  624. PDM_COLOR[ 3]= "W/R"                     && [ 3] hcolor for selected option
  625. PDM_COLOR[ 4]= "W/R"                     && [ 4] hcolor for selected trigger
  626. PDM_COLOR[ 5]= "B/W"                     && [ 5] vcolor for box
  627. PDM_COLOR[ 6]= "B/W"                     && [ 6] vcolor when not selected
  628. PDM_COLOR[ 7]= "R/W"                     && [ 7] vcolor for unselected trigger
  629. PDM_COLOR[ 8]= "W/R"                     && [ 8] vcolor for selected option
  630. PDM_COLOR[ 9]= "W/R"                     && [ 9] vcolor for selected trigger
  631. PDM_COLOR[10]= "N+/W"                    && [10] vcolor for inactive option
  632. PDM_COLOR[11]= "N/W"                     && [11] vcolor for message row
  633.  
  634. PUBLIC PDM_CONFG[9]                     && PDM configuration
  635. PDM_CONFG[1]= 1                          && [1] = expN: box type: 0,1,2
  636. PDM_CONFG[2]= 0                          && [2] = expN: row for horiz menu
  637. PDM_CONFG[3]= 2                          && [3] = expN: row for box top
  638. PDM_CONFG[4]= 24                         && [4] = expN: message row
  639. PDM_CONFG[5]= 0                          && [5] = expN: time out
  640. PDM_CONFG[6]= "W+/B"                     && [6] = expC: color for init bottom panel
  641. PDM_CONFG[7]= "W+/B"                     && [7] = expC: color for init screen
  642. PDM_CONFG[8]= 32                         && [8] = expN: char for init screen
  643. *                                        && [9] = expC: text for init bottom panel
  644. PDM_CONFG[9]= "                                                      Doc 1 Pg 1 Ln 1  Pos 1"
  645.  
  646. PDM_INIT()                    && Initialize remaining optional PDM PUBLIC arrays
  647.  
  648. RETURN .T.                                                 && End of: PDMSETUP()
  649. *------------------------------------------------------------------------------*
  650. *<eof>